home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / oop.swg / 0036_TVision Backgrounds.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  639 b   |  40 lines
  1. {
  2. > I'm starting to play with TVision 1 and I would like to know how
  3. > to change the background fill character.
  4.  
  5. Working example:
  6. }
  7.  
  8. program otherbackground;
  9.  
  10. uses
  11.   app, objects;
  12.  
  13. type
  14.   pmyapp=^tmyapp;
  15.   tmyapp=object(tapplication)
  16.     constructor init;
  17.   end;
  18.  
  19. constructor tmyapp. init;
  20.  
  21.   var
  22.     r: trect;
  23.  
  24.   begin
  25.     tapplication. init;
  26.     desktop^. getextent(r);
  27.     dispose(desktop^. background, done);
  28.     desktop^. background:=new(pbackground, init(r, #1));
  29.     desktop^. insert(desktop^. background);
  30.   end;
  31.  
  32. var
  33.   myapp: tmyapp;
  34.  
  35. begin
  36.   myapp. init;
  37.   myapp. run;
  38.   myapp. done;
  39. end.
  40.